home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / dos / setioerr.c < prev    next >
C/C++ Source or Header  |  1996-10-24  |  2KB  |  74 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: setioerr.c,v 1.4 1996/10/24 15:50:37 aros Exp $
  4.     $Log: setioerr.c,v $
  5.     Revision 1.4  1996/10/24 15:50:37  aros
  6.     Use the official AROS macros over the __AROS versions.
  7.  
  8.     Revision 1.3  1996/08/13 13:52:51  digulla
  9.     Replaced <dos/dosextens.h> by "dos_intern.h" or added "dos_intern.h"
  10.     Replaced AROS_LA by AROS_LHA
  11.  
  12.     Revision 1.2  1996/08/01 17:40:58  digulla
  13.     Added standard header for all files
  14.  
  15.     Desc:
  16.     Lang: english
  17. */
  18. #include <clib/exec_protos.h>
  19. #include "dos_intern.h"
  20.  
  21. /*****************************************************************************
  22.  
  23.     NAME */
  24.     #include <clib/dos_protos.h>
  25.  
  26.     AROS_LH1(LONG, SetIoErr,
  27.  
  28. /*  SYNOPSIS */
  29.     AROS_LHA(LONG, result, D1),
  30.  
  31. /*  LOCATION */
  32.     struct DosLibrary *, DOSBase, 77, Dos)
  33.  
  34. /*  FUNCTION
  35.     Sets to dos error code for the current process.
  36.  
  37.     INPUTS
  38.     result - new error code
  39.  
  40.     RESULT
  41.     Old error code.
  42.  
  43.     NOTES
  44.  
  45.     EXAMPLE
  46.  
  47.     BUGS
  48.  
  49.     SEE ALSO
  50.  
  51.     INTERNALS
  52.  
  53.     HISTORY
  54.     29-10-95    digulla automatically created from
  55.                 dos_lib.fd and clib/dos_protos.h
  56.  
  57. *****************************************************************************/
  58. {
  59.     AROS_LIBFUNC_INIT
  60.     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  61.  
  62.     /* old contents */
  63.     LONG old;
  64.  
  65.     /* Get pointer to process structure */
  66.     struct Process *me=(struct Process *)FindTask(NULL);
  67.  
  68.     /* Nothing spectacular */
  69.     old=me->pr_Result2;
  70.     me->pr_Result2=result;
  71.     return old;
  72.     AROS_LIBFUNC_EXIT
  73. } /* SetIoErr */
  74.